home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / ***9.11 All NEWer important / 10.2 / Callaway⁄Dec ARexx / austime.rexx < prev    next >
OS/2 REXX Batch file  |  1983-05-04  |  1KB  |  47 lines
  1. /* AUSTIME.REXX Convert to time in Australia NSW */
  2. /* Copyright 1994 by Merrill Callaway            */
  3.  
  4. datenow=DATE()
  5. PARSE VAR datenow day month year
  6. leap=0
  7. IF year//4=0 THEN leap=1
  8. daynow=DATE(d)
  9. IF (daynow>93+leap) & (daynow< 303 + leap) THEN add=16
  10. ELSE add=18
  11. SAY 'Input time of day here. hh [Enter]=time now.'
  12. PULL timenow
  13. PARSE VAR timenow timenow ':'
  14. PARSE VAR timenow timenow '.'
  15.  
  16.  
  17. IF timenow= '' THEN DO
  18.    timenow=time()
  19.    daynow=DATE(w)
  20. END
  21. ELSE DO
  22.    daynow='today'
  23.    IF timenow=0 | timenow=24 THEN daynow='midnight'
  24.    timenow=format(timenow,2,2)
  25. END
  26.  
  27. PARSE VAR timenow hours +2 minutes +3 seconds
  28. IF hours+add<24  THEN DO
  29.    hoursthere=hours+add
  30.    daythere='today.'
  31.    IF timenow='00:00' THEN daythere='same day.'
  32. END
  33. ELSE DO
  34.    hoursthere=(hours+add)//24
  35.    daythere='tomorrow.'
  36.    IF timenow='24:00' THEN daythere='same day.'
  37. END
  38.  
  39. IF minutes = '' THEN hoursthere=FORMAT(hoursthere,2,2)
  40. SAY 'Here: 'timenow daynow'. ==> Australia: 'hoursthere||minutes||seconds daythere
  41. EXIT
  42.  
  43. format: PROCEDURE
  44. PARSE ARG num, before, after
  45. num=RIGHT(num,before,0)
  46. num=num':'COPIES('0',after)
  47. RETURN num